#### Google Trends Figure #### 

trend.data <- read.csv("data/google-trends.csv")

trend.data$x <- as.Date(trend.data$x)

trends <- ggplot(trend.data, aes(x=x, y=y)) +
  geom_line(aes(group = x),size=1) +
  geom_vline(aes(xintercept=as.numeric(trend.data$x[67])), linetype="dotted", 
             color = "blue", size=1) +
  xlab("Date") +
  ylab("Google Searches as % of Etchecolatz Verdict") +
  annotate("text", label = "Diaz Bessone Verdict", x = trend.data$x[113], y = 150, size = 4, colour = "blue") +
  theme(panel.background = element_blank(),
          panel.border = element_blank(),
          panel.grid.minor = element_blank(),
          plot.background = element_blank())

ggsave('fig-out/trends.pdf')
